home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / SHARED.CST / 00023_Script_VideoControlBar < prev    next >
Text File  |  1998-09-21  |  2KB  |  86 lines
  1. global gStopFlag, gClipOut,gControls
  2.  
  3. on Controlloop
  4.   global gSliderRes
  5.   set gSliderRes = gSliderRes+1
  6.   if  gSliderRes > 6  then
  7.     automove
  8.     set gSliderRes = 0
  9.   end if
  10. end
  11.  
  12. on automove
  13.   if gstopflag = 0 then  
  14.     set move = the movietime of sprite 3*195/gClipout
  15.     set the loch of sprite 7 = ((the left of sprite 6+40)+move)
  16.   end if
  17. end
  18.  
  19. on pointermove
  20.   set the movierate of sprite 3 = 0
  21.   set the blend of sprite 8 = 100
  22.   repeat while the stilldown and rollover(6) and the mouseh> the left of sprite 6+32 then
  23.     set the loch of sprite 7 = the mouseh
  24.     set percent = ((the loch of sprite 7-(the left of sprite 6+40)))*gClipOut/195
  25.     set the movietime of sprite 3 = percent
  26.     updatestage
  27.   end repeat
  28. end
  29.  
  30. on StopStart
  31.   if the movierate of sprite 3 = 0 then 
  32.     if the  movietime of sprite 3 >= gClipOut-20  then set the movietime of sprite 3 = 0
  33.     set the movierate of sprite 3 =1
  34.     set the blend of sprite 8 to 0
  35.     set gstopflag = 0
  36.   else
  37.     set the movierate of sprite 3 =0
  38.     set the blend of sprite 8 to 100
  39.     set gstopflag = 1
  40.   end if
  41.   updatestage
  42. end
  43.  
  44. on setControlBar
  45.   repeat with x = 6 to 8
  46.     puppetsprite x, true
  47.   end repeat
  48.   
  49.   set the type of sprite 6 = 1
  50.   set the castnum of sprite 6 to the number of cast "BAR.BMP"
  51.   set the loch of sprite 6 = 151
  52.   set the locv of sprite  6 = 257
  53.   set the ink of sprite 6  = 32
  54.   set the blend of sprite 6 = 100
  55.   
  56.   
  57.   set the type of sprite 8 = 1
  58.   set the castnum of sprite 8 to the number of cast "GO.BMP"
  59.   set the loch of sprite 8 =  155-(216/2)+1
  60.   set the locv of sprite  8 =  the locv of sprite 6 +1
  61.   set the ink of sprite 8  = 32
  62.   set the blend of sprite 8 = 0
  63.   mSetCommand(gControls),8,"StopStart"
  64.   
  65.   set the type of sprite 7 = 1
  66.   set the castnum of sprite 7 to the number of cast "B2.BMP"
  67.   set the locv of sprite 7 = 257
  68.   set the loch of sprite  7 = (155-(240/2))+40
  69.   set the ink of sprite 7 = 32
  70.   set the blend of sprite 7 = 100
  71.   
  72.   updatestage
  73.   
  74. end
  75.  
  76. on ToastVideoControls
  77.   repeat with x = 6 to 8
  78.     set the type of sprite x = 0
  79.     set the castnum of sprite x = 0
  80.     set the blend of sprite x  = 0
  81.   end repeat
  82.   mSetCommand(gControls),8,EMPTY
  83.   
  84.   
  85. end
  86.